VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "XbrlEleHldr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public element As Object
Public name As String
Public yr As Integer
Public isDuri As Boolean
Property Get compkey(keyNo As Integer) As String

Select Case keyNo
    Case 0
        compkey = name
    Case 3
        compkey = name
End Select

End Property
